/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / plain / contrib / literate / progdoc.tex

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 25 20 54 68 69 73 20 69 | 73 20 4d 41 4b 45 50 52 |% This i|s MAKEPR|
|00000010| 4f 47 2e 57 45 42 20 20 | 20 20 20 20 20 20 20 20 |OG.WEB  |        |
|00000020| 20 20 20 20 20 20 20 20 | 20 20 61 73 20 6f 66 20 |        |  as of |
|00000030| 32 39 20 4e 6f 76 20 38 | 38 0a 25 2d 2d 2d 2d 2d |29 Nov 8|8.%-----|
|00000040| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000050| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000060| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000070| 2d 2d 2d 2d 0a 25 20 28 | 63 29 20 31 39 38 38 20 |----.% (|c) 1988 |
|00000080| 62 79 20 4a 2e 53 63 68 | 72 6f 64 2e 0a 25 20 20 |by J.Sch|rod..%  |
|00000090| 20 20 20 20 20 20 4d 61 | 6a 6f 72 20 70 61 72 74 |      Ma|jor part|
|000000a0| 73 20 6f 66 20 74 68 69 | 73 20 70 72 6f 67 72 61 |s of thi|s progra|
|000000b0| 6d 20 68 61 76 65 20 62 | 65 65 6e 20 74 61 6b 65 |m have b|een take|
|000000c0| 6e 20 66 72 6f 6d 20 54 | 41 4e 47 4c 45 2e 57 45 |n from T|ANGLE.WE|
|000000d0| 42 0a 25 20 20 20 20 20 | 20 20 20 20 20 20 62 79 |B.%     |      by|
|000000e0| 20 44 2e 45 2e 4b 6e 75 | 74 68 2c 20 77 68 69 63 | D.E.Knu|th, whic|
|000000f0| 68 20 69 73 20 6e 6f 74 | 20 63 6f 70 79 72 69 67 |h is not| copyrig|
|00000100| 68 74 65 64 2e 0a 0a 25 | 0a 25 20 56 65 72 73 69 |hted...%|.% Versi|
|00000110| 6f 6e 20 31 2e 30 20 77 | 61 73 20 72 65 6c 65 61 |on 1.0 w|as relea|
|00000120| 73 65 64 20 69 6e 20 4e | 6f 76 65 6d 62 65 72 2c |sed in N|ovember,|
|00000130| 20 31 39 38 38 2e 0a 25 | 0a 0a 0a 5c 64 65 66 5c | 1988..%|...\def\|
|00000140| 74 69 74 6c 65 7b 4d 41 | 4b 45 50 52 4f 47 20 28 |title{MA|KEPROG (|
|00000150| 56 5c 76 65 72 73 69 6f | 6e 29 7d 0a 5c 64 65 66 |V\versio|n)}.\def|
|00000160| 5c 76 65 72 73 69 6f 6e | 7b 31 2e 30 7d 0a 5c 64 |\version|{1.0}.\d|
|00000170| 65 66 5c 79 65 61 72 73 | 7b 31 39 38 38 7d 0a 0a |ef\years|{1988}..|
|00000180| 5c 66 6f 6e 74 5c 6e 69 | 6e 65 72 6d 3d 63 6d 72 |\font\ni|nerm=cmr|
|00000190| 39 0a 5c 6c 65 74 5c 6d | 63 3d 5c 6e 69 6e 65 72 |9.\let\m|c=\niner|
|000001a0| 6d 20 25 20 6d 65 64 69 | 75 6d 20 63 61 70 73 20 |m % medi|um caps |
|000001b0| 66 6f 72 20 6e 61 6d 65 | 73 20 6c 69 6b 65 20 45 |for name|s like E|
|000001c0| 42 43 44 49 43 0a 0a 5c | 64 65 66 5c 68 61 6e 67 |BCDIC..\|def\hang|
|000001d0| 7b 5c 68 61 6e 67 69 6e | 64 65 6e 74 20 33 65 6d |{\hangin|dent 3em|
|000001e0| 5c 69 6e 64 65 6e 74 5c | 69 67 6e 6f 72 65 73 70 |\indent\|ignoresp|
|000001f0| 61 63 65 73 7d 0a 5c 64 | 65 66 5c 69 74 65 6d 23 |aces}.\d|ef\item#|
|00000200| 31 7b 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |1{      |        |
|00000210| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 25 |        |       %|
|00000220| 20 66 69 78 65 64 20 69 | 74 65 6d 20 6f 66 20 33 | fixed i|tem of 3|
|00000230| 30 70 74 20 77 69 64 74 | 68 0a 20 20 20 7b 5c 70 |0pt widt|h.   {\p|
|00000240| 61 72 73 6b 69 70 3d 30 | 70 74 5c 65 6e 64 67 72 |arskip=0|pt\endgr|
|00000250| 61 66 5c 6e 6f 69 6e 64 | 65 6e 74 7d 25 20 20 20 |af\noind|ent}%   |
|00000260| 20 20 20 25 20 6e 65 77 | 20 6c 69 6e 65 0a 20 20 |   % new| line.  |
|00000270| 20 5c 68 61 6e 67 69 6e | 64 65 6e 74 20 33 30 70 | \hangin|dent 30p|
|00000280| 74 20 25 0a 20 20 20 5c | 68 62 6f 78 20 74 6f 20 |t %.   \|hbox to |
|00000290| 33 30 70 74 7b 5c 68 66 | 69 6c 23 31 5c 6b 65 72 |30pt{\hf|il#1\ker|
|000002a0| 6e 20 31 65 6d 7d 25 0a | 20 20 20 5c 69 67 6e 6f |n 1em}%.|   \igno|
|000002b0| 72 65 73 70 61 63 65 73 | 20 20 20 20 20 20 20 20 |respaces|        |
|000002c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000002d0| 20 25 20 69 67 6e 6f 72 | 65 20 66 6f 6c 6c 6f 77 | % ignor|e follow|
|000002e0| 69 6e 67 20 62 6c 61 6e | 6b 73 0a 20 20 20 7d 0a |ing blan|ks.   }.|
|000002f0| 0a 5c 64 65 66 5c 50 41 | 53 43 41 4c 7b 50 61 73 |.\def\PA|SCAL{Pas|
|00000300| 63 61 6c 7d 0a 5c 64 65 | 66 5c 4d 41 4b 45 50 52 |cal}.\de|f\MAKEPR|
|00000310| 4f 47 7b 5c 6c 65 61 76 | 65 76 6d 6f 64 65 5c 68 |OG{\leav|evmode\h|
|00000320| 62 6f 78 7b 5c 6d 63 20 | 4d 41 4b 45 50 52 4f 47 |box{\mc |MAKEPROG|
|00000330| 5c 2f 7d 7d 0a 5c 64 65 | 66 5c 41 53 43 49 49 7b |\/}}.\de|f\ASCII{|
|00000340| 5c 6c 65 61 76 65 76 6d | 6f 64 65 5c 68 62 6f 78 |\leavevm|ode\hbox|
|00000350| 7b 5c 6d 63 20 41 53 43 | 49 49 5c 2f 7d 7d 0a 5c |{\mc ASC|II\/}}.\|
|00000360| 6d 61 74 68 63 68 61 72 | 64 65 66 5c 42 41 3d 22 |mathchar|def\BA="|
|00000370| 33 32 32 34 20 20 20 20 | 20 20 25 20 64 6f 75 62 |3224    |  % doub|
|00000380| 6c 65 20 61 72 72 6f 77 | 20 61 73 20 72 65 6c 61 |le arrow| as rela|
|00000390| 74 69 6f 6e 0a 0a 5c 64 | 65 66 5c 74 6f 70 6f 66 |tion..\d|ef\topof|
|000003a0| 63 6f 6e 74 65 6e 74 73 | 7b 5c 6e 75 6c 6c 5c 76 |contents|{\null\v|
|000003b0| 66 69 6c 6c 0a 20 20 20 | 5c 63 65 6e 74 65 72 6c |fill.   |\centerl|
|000003c0| 69 6e 65 7b 5c 74 69 74 | 6c 65 66 6f 6e 74 20 54 |ine{\tit|lefont T|
|000003d0| 68 65 20 4d 41 4b 45 50 | 52 4f 47 20 70 72 6f 63 |he MAKEP|ROG proc|
|000003e0| 65 73 73 6f 72 7d 0a 20 | 20 20 5c 76 73 6b 69 70 |essor}. |  \vskip|
|000003f0| 20 31 35 70 74 0a 20 20 | 20 5c 63 65 6e 74 65 72 | 15pt.  | \center|
|00000400| 6c 69 6e 65 7b 28 56 65 | 72 73 69 6f 6e 20 5c 76 |line{(Ve|rsion \v|
|00000410| 65 72 73 69 6f 6e 29 7d | 0a 20 20 20 5c 76 73 6b |ersion)}|.   \vsk|
|00000420| 69 70 20 32 63 6d 7d 0a | 5c 64 65 66 5c 62 6f 74 |ip 2cm}.|\def\bot|
|00000430| 6f 66 63 6f 6e 74 65 6e | 74 73 7b 5c 76 66 69 6c |ofconten|ts{\vfil|
|00000440| 6c 0a 20 20 20 5c 68 61 | 6e 67 69 6e 64 65 6e 74 |l.   \ha|ngindent|
|00000450| 20 33 65 6d 0a 20 20 20 | 5c 6e 6f 69 6e 64 65 6e | 3em.   |\noinden|
|00000460| 74 20 24 5c 63 6f 70 79 | 72 69 67 68 74 24 20 5c |t $\copy|right$ \|
|00000470| 79 65 61 72 73 7b 7d 20 | 62 79 20 4a 2e 7e 53 63 |years{} |by J.~Sc|
|00000480| 68 72 6f 64 2e 5c 68 66 | 69 6c 5c 62 72 65 61 6b |hrod.\hf|il\break|
|00000490| 0a 20 20 20 41 6c 6c 20 | 72 69 67 68 74 73 20 72 |.   All |rights r|
|000004a0| 65 73 65 72 76 65 64 2e | 0a 20 20 20 5c 70 61 72 |eserved.|.   \par|
|000004b0| 20 5c 76 73 6b 69 70 20 | 31 65 78 0a 20 20 20 5c | \vskip |1ex.   \|
|000004c0| 6e 6f 69 6e 64 65 6e 74 | 20 54 68 65 20 73 6f 75 |noindent| The sou|
|000004d0| 72 63 65 20 6f 66 20 74 | 68 69 73 20 70 72 6f 67 |rce of t|his prog|
|000004e0| 72 61 6d 20 6d 61 79 20 | 62 65 20 75 73 65 64 20 |ram may |be used |
|000004f0| 66 6f 72 0a 20 20 20 6e | 6f 6e 63 6f 6d 6d 65 72 |for.   n|oncommer|
|00000500| 63 69 61 6c 20 70 75 72 | 70 6f 73 65 73 2c 20 62 |cial pur|poses, b|
|00000510| 75 74 20 63 72 65 64 69 | 74 73 20 6d 75 73 74 20 |ut credi|ts must |
|00000520| 62 65 20 67 69 76 65 6e | 20 74 6f 20 74 68 65 20 |be given| to the |
|00000530| 6f 72 69 67 69 6e 2e 0a | 20 20 20 5c 70 61 72 7d |origin..|   \par}|
|00000540| 0a 0a 0a 0a 0a 0a 40 2a | 20 49 6e 74 72 6f 64 75 |......@*| Introdu|
|00000550| 63 74 69 6f 6e 2e 20 20 | 20 20 20 20 20 20 20 20 |ction.  |        |
|00000560| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000570| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000580| 20 20 25 20 73 65 63 74 | 2e 20 20 20 20 31 0a 0a |  % sect|.    1..|
|00000590| 5c 6e 6f 69 6e 64 65 6e | 74 20 54 68 69 73 20 70 |\noinden|t This p|
|000005a0| 72 6f 67 72 61 6d 20 63 | 6f 6e 76 65 72 74 73 20 |rogram c|onverts |
|000005b0| 61 20 64 6f 63 75 6d 65 | 6e 74 61 74 69 6f 6e 20 |a docume|ntation |
|000005c0| 66 69 6c 65 20 74 6f 20 | 61 0a 70 72 6f 67 72 61 |file to |a.progra|
|000005d0| 6d 20 66 69 6c 65 2c 20 | 69 2e 65 2e 5c 20 61 6c |m file, |i.e.\ al|
|000005e0| 6c 20 66 69 6c 65 73 20 | 62 65 74 77 65 65 6e 20 |l files |between |
|000005f0| 5c 2e 7b 5c 5c 62 65 67 | 69 6e 70 72 6f 67 7d 20 |\.{\\beg|inprog} |
|00000600| 61 6e 64 0a 5c 2e 7b 5c | 5c 65 6e 64 70 72 6f 67 |and.\.{\|\endprog|
|00000610| 7d 20 61 72 65 20 63 6f | 70 69 65 64 20 76 65 72 |} are co|pied ver|
|00000620| 62 61 74 69 6d 2e 20 20 | 49 74 20 77 61 73 20 77 |batim.  |It was w|
|00000630| 72 69 74 74 65 6e 20 62 | 79 0a 4a 2e 7e 53 63 68 |ritten b|y.J.~Sch|
|00000640| 72 6f 64 20 69 6e 20 53 | 65 70 74 65 6d 62 65 72 |rod in S|eptember|
|00000650| 2c 20 31 39 38 37 2e 20 | 20 54 68 69 73 20 70 72 |, 1987. | This pr|
|00000660| 6f 67 72 61 6d 20 69 73 | 20 77 72 69 74 74 65 6e |ogram is| written|
|00000670| 20 69 6e 0a 5c 2e 7b 57 | 45 42 7d 2e 0a 0a 54 68 | in.\.{W|EB}...Th|
|00000680| 65 20 70 72 6f 67 72 61 | 6d 20 75 73 65 73 20 61 |e progra|m uses a|
|00000690| 20 66 65 77 20 66 65 61 | 74 75 72 65 73 20 6f 66 | few fea|tures of|
|000006a0| 20 74 68 65 20 6c 6f 63 | 61 6c 20 5c 50 41 53 43 | the loc|al \PASC|
|000006b0| 41 4c 5c 0a 63 6f 6d 70 | 69 6c 65 72 20 74 68 61 |AL\.comp|iler tha|
|000006c0| 74 20 6d 61 79 20 6e 65 | 65 64 20 74 6f 20 62 65 |t may ne|ed to be|
|000006d0| 20 63 68 61 6e 67 65 64 | 20 69 6e 20 6f 74 68 65 | changed| in othe|
|000006e0| 72 20 69 6e 73 74 61 6c | 6c 61 74 69 6f 6e 73 3a |r instal|lations:|
|000006f0| 0a 0a 5c 69 74 65 6d 7b | 31 29 7d 20 43 61 73 65 |..\item{|1)} Case|
|00000700| 20 73 74 61 74 65 6d 65 | 6e 74 73 20 68 61 76 65 | stateme|nts have|
|00000710| 20 61 20 64 65 66 61 75 | 6c 74 2e 0a 0a 5c 69 74 | a defau|lt...\it|
|00000720| 65 6d 7b 32 29 7d 20 49 | 6e 70 75 74 2d 6f 75 74 |em{2)} I|nput-out|
|00000730| 70 75 74 20 72 6f 75 74 | 69 6e 65 73 20 6d 61 79 |put rout|ines may|
|00000740| 20 6e 65 65 64 20 74 6f | 20 62 65 20 61 64 61 70 | need to| be adap|
|00000750| 74 65 64 20 66 6f 72 0a | 75 73 65 20 77 69 74 68 |ted for.|use with|
|00000760| 20 61 20 70 61 72 74 69 | 63 75 6c 61 72 20 63 68 | a parti|cular ch|
|00000770| 61 72 61 63 74 65 72 20 | 73 65 74 20 61 6e 64 2f |aracter |set and/|
|00000780| 6f 72 20 66 6f 72 20 70 | 72 69 6e 74 69 6e 67 0a |or for p|rinting.|
|00000790| 6d 65 73 73 61 67 65 73 | 20 6f 6e 20 74 68 65 20 |messages| on the |
|000007a0| 75 73 65 72 27 73 20 74 | 65 72 6d 69 6e 61 6c 2e |user's t|erminal.|
|000007b0| 0a 0a 5c 6e 6f 69 6e 64 | 65 6e 74 20 53 79 73 74 |..\noind|ent Syst|
|000007c0| 65 6d 2d 64 65 70 65 6e | 64 65 6e 74 20 70 6f 72 |em-depen|dent por|
|000007d0| 74 69 6f 6e 73 20 6f 66 | 20 5c 4d 41 4b 45 50 52 |tions of| \MAKEPR|
|000007e0| 4f 47 7b 7d 20 63 61 6e | 20 62 65 0a 69 64 65 6e |OG{} can| be.iden|
|000007f0| 74 69 66 69 65 64 20 62 | 79 20 6c 6f 6f 6b 69 6e |tified b|y lookin|
|00000800| 67 20 61 74 20 74 68 65 | 20 65 6e 74 72 69 65 73 |g at the| entries|
|00000810| 20 66 6f 72 20 60 73 79 | 73 74 65 6d 0a 64 65 70 | for `sy|stem.dep|
|00000820| 65 6e 64 65 6e 63 69 65 | 73 27 20 69 6e 20 74 68 |endencie|s' in th|
|00000830| 65 20 69 6e 64 65 78 20 | 62 65 6c 6f 77 2e 0a 40 |e index |below..@|
|00000840| 21 40 5e 73 79 73 74 65 | 6d 20 64 65 70 65 6e 64 |!@^syste|m depend|
|00000850| 65 6e 63 69 65 73 40 3e | 0a 0a 5c 6e 6f 69 6e 64 |encies@>|..\noind|
|00000860| 65 6e 74 20 54 68 65 20 | 60 60 62 61 6e 6e 65 72 |ent The |``banner|
|00000870| 20 6c 69 6e 65 27 27 20 | 64 65 66 69 6e 65 64 20 | line'' |defined |
|00000880| 68 65 72 65 20 73 68 6f | 75 6c 64 20 62 65 20 63 |here sho|uld be c|
|00000890| 68 61 6e 67 65 64 0a 77 | 68 65 6e 65 76 65 72 20 |hanged.w|henever |
|000008a0| 5c 4d 41 4b 45 50 52 4f | 47 7b 7d 20 69 73 20 6d |\MAKEPRO|G{} is m|
|000008b0| 6f 64 69 66 69 65 64 2e | 20 20 54 68 65 20 63 6f |odified.|  The co|
|000008c0| 70 79 72 69 67 68 74 20 | 6e 6f 74 69 63 65 20 6d |pyright |notice m|
|000008d0| 75 73 74 0a 6e 6f 74 20 | 62 65 20 63 68 61 6e 67 |ust.not |be chang|
|000008e0| 65 64 2e 0a 0a 40 64 20 | 62 61 6e 6e 65 72 3d 3d |ed...@d |banner==|
|000008f0| 27 54 68 69 73 20 69 73 | 20 4d 41 4b 45 50 52 4f |'This is| MAKEPRO|
|00000900| 47 2c 20 56 65 72 73 69 | 6f 6e 20 31 2e 30 2e 27 |G, Versi|on 1.0.'|
|00000910| 0a 40 64 20 63 6f 70 79 | 5f 72 69 67 68 74 3d 3d |.@d copy|_right==|
|00000920| 27 20 20 20 20 28 63 29 | 20 31 39 38 38 20 62 79 |'    (c)| 1988 by|
|00000930| 20 4a 2e 53 63 68 72 6f | 64 2e 27 0a 40 64 20 72 | J.Schro|d.'.@d r|
|00000940| 69 67 68 74 73 5f 72 65 | 73 3d 3d 27 20 20 20 20 |ights_re|s=='    |
|00000950| 20 20 20 20 41 6c 6c 20 | 72 69 67 68 74 73 20 72 |    All |rights r|
|00000960| 65 73 65 72 76 65 64 2e | 27 0a 0a 0a 25 20 66 72 |eserved.|'...% fr|
|00000970| 6f 6d 20 70 72 6f 67 64 | 6f 63 2e 64 6f 63 20 20 |om progd|oc.doc  |
|00000980| 20 30 35 20 44 65 63 20 | 38 38 0a 25 2d 2d 2d 2d | 05 Dec |88.%----|
|00000990| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000009a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0a 25 20 54 68 65 |--------|--.% The|
|000009b0| 73 65 20 6c 69 6e 65 73 | 20 77 65 72 65 20 69 6e |se lines| were in|
|000009c0| 73 65 72 74 65 64 20 62 | 79 20 68 61 6e 64 20 28 |serted b|y hand (|
|000009d0| 6e 6f 74 20 77 69 74 68 | 20 4d 41 4b 45 50 52 4f |not with| MAKEPRO|
|000009e0| 47 29 2e 0a 5c 63 68 61 | 72 64 65 66 5c 65 73 63 |G)..\cha|rdef\esc|
|000009f0| 61 70 65 3d 30 0a 5c 63 | 68 61 72 64 65 66 5c 6c |ape=0.\c|hardef\l|
|00000a00| 65 74 74 65 72 3d 31 31 | 0a 5c 63 68 61 72 64 65 |etter=11|.\charde|
|00000a10| 66 5c 6f 74 68 65 72 3d | 31 32 0a 25 5c 63 68 61 |f\other=|12.%\cha|
|00000a20| 72 64 65 66 5c 61 63 74 | 69 76 65 3d 31 33 20 20 |rdef\act|ive=13  |
|00000a30| 20 20 20 20 20 20 20 20 | 20 20 20 20 25 20 69 73 |        |    % is|
|00000a40| 20 64 65 66 69 6e 65 64 | 20 69 6e 20 50 6c 61 69 | defined| in Plai|
|00000a50| 6e 20 61 6c 72 65 61 64 | 79 0a 0a 5c 63 68 61 72 |n alread|y..\char|
|00000a60| 64 65 66 5c 61 74 63 6f | 64 65 3d 5c 63 61 74 63 |def\atco|de=\catc|
|00000a70| 6f 64 65 60 5c 40 0a 5c | 63 68 61 72 64 65 66 5c |ode`\@.\|chardef\|
|00000a80| 75 73 63 6f 64 65 3d 5c | 63 61 74 63 6f 64 65 60 |uscode=\|catcode`|
|00000a90| 5c 5f 0a 0a 5c 63 61 74 | 63 6f 64 65 60 5c 40 3d |\_..\cat|code`\@=|
|00000aa0| 5c 6c 65 74 74 65 72 0a | 5c 63 61 74 63 6f 64 65 |\letter.|\catcode|
|00000ab0| 60 5c 5f 3d 5c 6c 65 74 | 74 65 72 0a 5c 66 6f 6e |`\_=\let|ter.\fon|
|00000ac0| 74 5c 74 65 6e 74 65 78 | 3d 63 6d 74 65 78 31 30 |t\tentex|=cmtex10|
|00000ad0| 20 20 20 20 20 20 20 20 | 20 20 20 20 25 20 74 79 |        |    % ty|
|00000ae0| 70 65 77 72 69 74 65 72 | 20 65 78 74 65 6e 64 65 |pewriter| extende|
|00000af0| 64 20 41 53 43 49 49 20 | 31 30 70 74 0a 5c 6c 65 |d ASCII |10pt.\le|
|00000b00| 74 5c 74 74 65 78 3d 5c | 74 65 6e 74 65 78 20 20 |t\ttex=\|tentex  |
|00000b10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 25 20 6f |        |     % o|
|00000b20| 6e 6c 79 20 66 6f 72 20 | 50 4c 41 49 4e 20 77 69 |nly for |PLAIN wi|
|00000b30| 74 68 20 62 61 73 65 20 | 73 69 7a 65 20 31 30 70 |th base |size 10p|
|00000b40| 74 0a 0a 5c 64 65 66 5c | 73 65 74 75 70 5f 76 65 |t..\def\|setup_ve|
|00000b50| 72 62 61 74 69 6d 7b 25 | 0a 20 20 20 5c 64 65 66 |rbatim{%|.   \def|
|00000b60| 5c 64 6f 23 23 31 7b 5c | 63 61 74 63 6f 64 65 60 |\do##1{\|catcode`|
|00000b70| 23 23 31 5c 6f 74 68 65 | 72 7d 5c 64 6f 73 70 65 |##1\othe|r}\dospe|
|00000b80| 63 69 61 6c 73 0a 20 20 | 20 5c 70 61 72 73 6b 69 |cials.  | \parski|
|00000b90| 70 5c 7a 40 73 6b 69 70 | 20 5c 70 61 72 69 6e 64 |p\z@skip| \parind|
|00000ba0| 65 6e 74 5c 7a 40 0a 20 | 20 20 5c 6f 62 65 79 6c |ent\z@. |  \obeyl|
|00000bb0| 69 6e 65 73 20 5c 6f 62 | 65 79 73 70 61 63 65 73 |ines \ob|eyspaces|
|00000bc0| 20 5c 6f 62 65 79 74 61 | 62 73 20 5c 66 72 65 6e | \obeyta|bs \fren|
|00000bd0| 63 68 73 70 61 63 69 6e | 67 0a 20 20 20 5c 74 74 |chspacin|g.   \tt|
|00000be0| 65 78 0a 20 20 20 7d 0a | 0a 5c 6c 65 74 5c 74 61 |ex.   }.|.\let\ta|
|00000bf0| 62 3d 5c 73 70 61 63 65 | 0a 5c 62 65 67 69 6e 67 |b=\space|.\beging|
|00000c00| 72 6f 75 70 0a 20 20 20 | 5c 63 61 74 63 6f 64 65 |roup.   |\catcode|
|00000c10| 60 5c 5e 5e 49 3d 5c 61 | 63 74 69 76 65 25 20 20 |`\^^I=\a|ctive%  |
|00000c20| 20 20 20 20 20 25 20 41 | 74 74 65 6e 74 69 6f 6e |     % A|ttention|
|00000c30| 3a 20 6e 6f 20 74 61 62 | 73 21 0a 20 20 20 5c 67 |: no tab|s!.   \g|
|00000c40| 64 65 66 5c 6f 62 65 79 | 74 61 62 73 7b 5c 63 61 |def\obey|tabs{\ca|
|00000c50| 74 63 6f 64 65 60 5c 5e | 5e 49 3d 5c 61 63 74 69 |tcode`\^|^I=\acti|
|00000c60| 76 65 5c 64 65 66 5e 5e | 49 7b 5c 74 61 62 7d 7d |ve\def^^|I{\tab}}|
|00000c70| 0a 20 20 20 5c 67 6c 6f | 62 61 6c 5c 6c 65 74 5e |.   \glo|bal\let^|
|00000c80| 5e 49 3d 5c 74 61 62 25 | 20 20 20 20 20 20 20 20 |^I=\tab%|        |
|00000c90| 20 25 20 69 66 20 61 6e | 20 61 63 74 69 76 65 20 | % if an| active |
|00000ca0| 74 61 62 20 61 70 70 65 | 61 72 73 20 69 6e 20 61 |tab appe|ars in a|
|00000cb0| 20 5c 77 72 69 74 65 0a | 5c 65 6e 64 67 72 6f 75 | \write.|\endgrou|
|00000cc0| 70 0a 5c 6c 65 74 5c 6f | 72 69 67 76 65 72 74 3d |p.\let\o|rigvert=|
|00000cd0| 7c 0a 5c 63 68 61 72 64 | 65 66 5c 76 62 61 72 3d ||.\chard|ef\vbar=|
|00000ce0| 60 5c 7c 0a 0a 5c 63 61 | 74 63 6f 64 65 60 5c 7c |`\|..\ca|tcode`\||
|00000cf0| 3d 5c 61 63 74 69 76 65 | 0a 0a 5c 64 65 66 7c 7b |=\active|..\def|{|
|00000d00| 25 0a 20 20 20 5c 6c 65 | 61 76 65 76 6d 6f 64 65 |%.   \le|avevmode|
|00000d10| 0a 20 20 20 5c 68 62 6f | 78 5c 62 67 72 6f 75 70 |.   \hbo|x\bgroup|
|00000d20| 0a 20 20 20 20 20 20 5c | 6c 65 74 5c 70 61 72 5c |.      \|let\par\|
|00000d30| 73 70 61 63 65 20 5c 73 | 65 74 75 70 5f 76 65 72 |space \s|etup_ver|
|00000d40| 62 61 74 69 6d 0a 20 20 | 20 20 20 20 5c 6c 65 74 |batim.  |    \let|
|00000d50| 7c 5c 65 67 72 6f 75 70 | 0a 20 20 20 7d 0a 5c 6e ||\egroup|.   }.\n|
|00000d60| 65 77 69 66 5c 69 66 40 | 70 72 69 6e 74 0a 0a 5c |ewif\if@|print..\|
|00000d70| 64 65 66 5c 62 65 67 69 | 6e 70 72 6f 67 7b 25 0a |def\begi|nprog{%.|
|00000d80| 20 20 20 5c 65 6e 64 67 | 72 61 66 0a 20 20 20 5c |   \endg|raf.   \|
|00000d90| 62 69 67 62 72 65 61 6b | 0a 20 20 20 5c 62 65 67 |bigbreak|.   \beg|
|00000da0| 69 6e 67 72 6f 75 70 0a | 20 20 20 20 20 20 5c 73 |ingroup.|      \s|
|00000db0| 65 74 75 70 5f 76 65 72 | 62 61 74 69 6d 20 5c 63 |etup_ver|batim \c|
|00000dc0| 61 74 63 6f 64 65 60 5c | 7c 5c 6f 74 68 65 72 0a |atcode`\||\other.|
|00000dd0| 20 20 20 20 20 20 5c 40 | 70 72 69 6e 74 74 72 75 |      \@|printtru|
|00000de0| 65 0a 20 20 20 20 20 20 | 5c 69 67 6e 6f 72 65 5f |e.      |\ignore_|
|00000df0| 72 65 73 74 5f 6c 69 6e | 65 0a 20 20 20 7d 0a 5c |rest_lin|e.   }.\|
|00000e00| 6c 65 74 5c 65 6e 64 5f | 76 65 72 62 61 74 69 6d |let\end_|verbatim|
|00000e10| 3d 5c 65 6e 64 67 72 6f | 75 70 20 20 20 20 20 20 |=\endgro|up      |
|00000e20| 20 20 20 20 20 20 20 25 | 20 69 6e 74 65 72 6e 61 |       %| interna|
|00000e30| 6c 20 63 6f 6d 6d 61 6e | 64 20 21 0a 5c 62 65 67 |l comman|d !.\beg|
|00000e40| 69 6e 67 72 6f 75 70 0a | 20 20 20 5c 6f 62 65 79 |ingroup.|   \obey|
|00000e50| 6c 69 6e 65 73 25 20 20 | 20 20 20 20 20 20 20 20 |lines%  |        |
|00000e60| 25 20 5e 5e 4d 20 69 73 | 20 61 63 74 69 76 65 21 |% ^^M is| active!|
|00000e70| 20 3d 3d 3e 20 65 76 65 | 72 79 20 6c 69 6e 65 20 | ==> eve|ry line |
|00000e80| 6d 75 73 74 20 65 6e 64 | 20 77 69 74 68 20 25 0a |must end| with %.|
|00000e90| 20 20 20 5c 67 64 65 66 | 5c 69 67 6e 6f 72 65 5f |   \gdef|\ignore_|
|00000ea0| 72 65 73 74 5f 6c 69 6e | 65 23 31 5e 5e 4d 7b 5c |rest_lin|e#1^^M{\|
|00000eb0| 73 65 74 5f 6e 65 78 74 | 5f 6c 69 6e 65 7d 25 0a |set_next|_line}%.|
|00000ec0| 20 20 20 5c 67 64 65 66 | 5c 73 65 74 5f 6e 65 78 |   \gdef|\set_nex|
|00000ed0| 74 5f 6c 69 6e 65 23 31 | 5e 5e 4d 7b 5c 64 6f 5f |t_line#1|^^M{\do_|
|00000ee0| 73 65 74 7b 23 31 7d 7d | 25 0a 5c 65 6e 64 67 72 |set{#1}}|%.\endgr|
|00000ef0| 6f 75 70 0a 0a 5c 64 65 | 66 5c 64 6f 5f 73 65 74 |oup..\de|f\do_set|
|00000f00| 23 31 7b 25 0a 20 20 20 | 5c 65 6e 64 67 72 61 66 |#1{%.   |\endgraf|
|00000f10| 0a 20 20 20 5c 63 68 65 | 63 6b 5f 70 72 69 6e 74 |.   \che|ck_print|
|00000f20| 7b 23 31 7d 25 0a 20 20 | 20 5c 69 66 40 70 72 69 |{#1}%.  | \if@pri|
|00000f30| 6e 74 20 20 5c 69 6e 64 | 65 6e 74 20 5c 70 72 69 |nt  \ind|ent \pri|
|00000f40| 6e 74 5f 63 68 61 72 23 | 31 5c 65 6e 64 5f 6c 69 |nt_char#|1\end_li|
|00000f50| 6e 65 5c 65 6e 64 5f 6c | 69 6e 65 0a 20 20 20 5c |ne\end_l|ine.   \|
|00000f60| 65 6c 73 65 20 20 5c 6c | 65 74 5c 73 65 74 5f 6e |else  \l|et\set_n|
|00000f70| 65 78 74 5f 6c 69 6e 65 | 5c 65 6e 64 5f 76 65 72 |ext_line|\end_ver|
|00000f80| 62 61 74 69 6d 0a 20 20 | 20 5c 66 69 0a 20 20 20 |batim.  | \fi.   |
|00000f90| 5c 73 65 74 5f 6e 65 78 | 74 5f 6c 69 6e 65 0a 20 |\set_nex|t_line. |
|00000fa0| 20 20 7d 0a 5c 6c 65 74 | 5c 65 6e 64 5f 6c 69 6e |  }.\let|\end_lin|
|00000fb0| 65 3d 5c 72 65 6c 61 78 | 0a 5c 62 65 67 69 6e 67 |e=\relax|.\beging|
|00000fc0| 72 6f 75 70 0a 5c 6f 62 | 65 79 73 70 61 63 65 73 |roup.\ob|eyspaces|
|00000fd0| 5c 6f 62 65 79 74 61 62 | 73 0a 5c 67 64 65 66 5c |\obeytab|s.\gdef\|
|00000fe0| 63 68 65 63 6b 5f 70 72 | 69 6e 74 23 31 7b 5c 63 |check_pr|int#1{\c|
|00000ff0| 75 74 5f 61 74 5f 74 61 | 62 23 31 5e 5e 49 5c 65 |ut_at_ta|b#1^^I\e|
|00001000| 6e 64 5f 6c 69 6e 65 7d | 0a 5c 67 64 65 66 5c 63 |nd_line}|.\gdef\c|
|00001010| 75 74 5f 61 74 5f 74 61 | 62 23 31 5e 5e 49 23 32 |ut_at_ta|b#1^^I#2|
|00001020| 5c 65 6e 64 5f 6c 69 6e | 65 7b 5c 63 68 65 63 6b |\end_lin|e{\check|
|00001030| 5f 66 69 72 73 74 5f 70 | 61 72 74 23 31 20 5c 65 |_first_p|art#1 \e|
|00001040| 6e 64 5f 6c 69 6e 65 7d | 0a 5c 67 64 65 66 5c 63 |nd_line}|.\gdef\c|
|00001050| 68 65 63 6b 5f 66 69 72 | 73 74 5f 70 61 72 74 23 |heck_fir|st_part#|
|00001060| 31 20 23 32 5c 65 6e 64 | 5f 6c 69 6e 65 7b 5c 64 |1 #2\end|_line{\d|
|00001070| 6f 5f 63 68 65 63 6b 7b | 23 31 7d 7d 0a 5c 65 6e |o_check{|#1}}.\en|
|00001080| 64 67 72 6f 75 70 0a 5c | 64 65 66 5c 64 6f 5f 63 |dgroup.\|def\do_c|
|00001090| 68 65 63 6b 23 31 7b 25 | 0a 20 20 20 5c 64 65 66 |heck#1{%|.   \def|
|000010a0| 5c 40 6c 69 6e 65 7b 23 | 31 7d 25 0a 20 20 20 5c |\@line{#|1}%.   \|
|000010b0| 69 66 78 20 5c 40 6c 69 | 6e 65 5c 40 65 6e 64 76 |ifx \@li|ne\@endv|
|000010c0| 65 72 62 61 74 69 6d 20 | 20 5c 40 70 72 69 6e 74 |erbatim | \@print|
|000010d0| 66 61 6c 73 65 0a 20 20 | 20 5c 66 69 0a 20 20 20 |false.  | \fi.   |
|000010e0| 7d 0a 0a 7b 5c 63 61 74 | 63 6f 64 65 60 5c 7c 3d |}..{\cat|code`\|=|
|000010f0| 5c 65 73 63 61 70 65 20 | 20 5c 63 61 74 63 6f 64 |\escape | \catcod|
|00001100| 65 60 5c 5c 3d 5c 6f 74 | 68 65 72 20 25 20 7c 20 |e`\\=\ot|her % | |
|00001110| 69 73 20 74 65 6d 70 6f | 72 61 72 79 20 65 73 63 |is tempo|rary esc|
|00001120| 61 70 65 20 63 68 61 72 | 0a 20 20 20 7c 67 64 65 |ape char|.   |gde|
|00001130| 66 7c 40 65 6e 64 76 65 | 72 62 61 74 69 6d 7b 5c |f|@endve|rbatim{\|
|00001140| 65 6e 64 70 72 6f 67 7d | 0a 7d 20 20 20 20 20 20 |endprog}|.}      |
|00001150| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001160| 20 25 20 68 65 20 5c 65 | 6e 64 67 72 6f 75 70 20 | % he \e|ndgroup |
|00001170| 63 61 6e 27 74 20 62 65 | 20 75 73 65 64 0a 5c 6e |can't be| used.\n|
|00001180| 65 77 63 6f 75 6e 74 5c | 63 68 61 72 5f 63 6f 75 |ewcount\|char_cou|
|00001190| 6e 74 20 20 5c 63 68 61 | 72 5f 63 6f 75 6e 74 5c |nt  \cha|r_count\|
|000011a0| 40 6e 65 0a 0a 5c 64 65 | 66 5c 70 72 69 6e 74 5f |@ne..\de|f\print_|
|000011b0| 63 68 61 72 23 31 23 32 | 5c 65 6e 64 5f 6c 69 6e |char#1#2|\end_lin|
|000011c0| 65 7b 25 0a 20 20 20 5c | 70 72 69 6e 74 5f 66 69 |e{%.   \|print_fi|
|000011d0| 72 73 74 5f 63 68 61 72 | 7b 23 31 7d 25 0a 20 20 |rst_char|{#1}%.  |
|000011e0| 20 5c 70 72 69 6e 74 5f | 72 65 73 74 5f 6f 66 5f | \print_|rest_of_|
|000011f0| 6c 69 6e 65 7b 23 32 7d | 25 0a 20 20 20 7d 0a 7b |line{#2}|%.   }.{|
|00001200| 5c 6f 62 65 79 74 61 62 | 73 5c 67 64 65 66 5c 40 |\obeytab|s\gdef\@|
|00001210| 74 61 62 7b 5e 5e 49 7d | 7d 0a 0a 5c 64 65 66 5c |tab{^^I}|}..\def\|
|00001220| 70 72 69 6e 74 5f 66 69 | 72 73 74 5f 63 68 61 72 |print_fi|rst_char|
|00001230| 23 31 7b 25 0a 20 20 20 | 5c 64 65 66 5c 40 63 68 |#1{%.   |\def\@ch|
|00001240| 61 72 7b 23 31 7d 25 0a | 20 20 20 5c 61 64 76 61 |ar{#1}%.|   \adva|
|00001250| 6e 63 65 20 5c 63 68 61 | 72 5f 63 6f 75 6e 74 5c |nce \cha|r_count\|
|00001260| 40 6e 65 0a 20 20 20 5c | 69 66 78 20 5c 40 63 68 |@ne.   \|ifx \@ch|
|00001270| 61 72 5c 40 74 61 62 20 | 20 5c 70 72 69 6e 74 5f |ar\@tab | \print_|
|00001280| 74 61 62 0a 20 20 20 5c | 65 6c 73 65 20 20 5c 40 |tab.   \|else  \@|
|00001290| 63 68 61 72 0a 20 20 20 | 5c 66 69 0a 20 20 20 7d |char.   |\fi.   }|
|000012a0| 0a 5c 6e 65 77 63 6f 75 | 6e 74 5c 63 6f 75 6e 74 |.\newcou|nt\count|
|000012b0| 5f 6d 6f 64 5f 76 69 69 | 69 0a 5c 64 65 66 5c 6d |_mod_vii|i.\def\m|
|000012c0| 6f 64 5f 76 69 69 69 23 | 31 7b 25 0a 20 20 20 5c |od_viii#|1{%.   \|
|000012d0| 63 6f 75 6e 74 40 20 23 | 31 5c 72 65 6c 61 78 20 |count@ #|1\relax |
|000012e0| 20 5c 63 6f 75 6e 74 5f | 6d 6f 64 5f 76 69 69 69 | \count_|mod_viii|
|000012f0| 5c 63 6f 75 6e 74 40 0a | 20 20 20 5c 64 69 76 69 |\count@.|   \divi|
|00001300| 64 65 20 5c 63 6f 75 6e | 74 40 20 38 5c 72 65 6c |de \coun|t@ 8\rel|
|00001310| 61 78 0a 20 20 20 5c 6d | 75 6c 74 69 70 6c 79 20 |ax.   \m|ultiply |
|00001320| 5c 63 6f 75 6e 74 40 20 | 38 5c 72 65 6c 61 78 0a |\count@ |8\relax.|
|00001330| 20 20 20 5c 61 64 76 61 | 6e 63 65 20 5c 63 6f 75 |   \adva|nce \cou|
|00001340| 6e 74 5f 6d 6f 64 5f 76 | 69 69 69 20 2d 5c 63 6f |nt_mod_v|iii -\co|
|00001350| 75 6e 74 40 0a 20 20 20 | 7d 0a 5c 64 65 66 5c 70 |unt@.   |}.\def\p|
|00001360| 72 69 6e 74 5f 74 61 62 | 7b 25 0a 20 20 20 5c 6c |rint_tab|{%.   \l|
|00001370| 6f 6f 70 20 20 5c 73 70 | 61 63 65 20 5c 6d 6f 64 |oop  \sp|ace \mod|
|00001380| 5f 76 69 69 69 5c 63 68 | 61 72 5f 63 6f 75 6e 74 |_viii\ch|ar_count|
|00001390| 0a 20 20 20 20 20 20 5c | 69 66 6e 75 6d 20 5c 63 |.      \|ifnum \c|
|000013a0| 6f 75 6e 74 5f 6d 6f 64 | 5f 76 69 69 69 3e 5c 7a |ount_mod|_viii>\z|
|000013b0| 40 0a 20 20 20 20 20 20 | 20 20 20 5c 61 64 76 61 |@.      |   \adva|
|000013c0| 6e 63 65 20 5c 63 68 61 | 72 5f 63 6f 75 6e 74 5c |nce \cha|r_count\|
|000013d0| 40 6e 65 0a 20 20 20 5c | 72 65 70 65 61 74 0a 20 |@ne.   \|repeat. |
|000013e0| 20 20 7d 0a 5c 64 65 66 | 5c 70 72 69 6e 74 5f 72 |  }.\def|\print_r|
|000013f0| 65 73 74 5f 6f 66 5f 6c | 69 6e 65 23 31 7b 25 0a |est_of_l|ine#1{%.|
|00001400| 20 20 20 5c 64 65 66 5c | 40 6c 69 6e 65 7b 23 31 |   \def\|@line{#1|
|00001410| 7d 25 0a 20 20 20 5c 69 | 66 78 20 5c 40 6c 69 6e |}%.   \i|fx \@lin|
|00001420| 65 5c 65 6d 70 74 79 20 | 20 5c 63 68 61 72 5f 63 |e\empty | \char_c|
|00001430| 6f 75 6e 74 5c 40 6e 65 | 0a 20 20 20 20 20 20 20 |ount\@ne|.       |
|00001440| 20 5c 64 65 66 5c 6e 65 | 78 74 23 23 31 5c 65 6e | \def\ne|xt##1\en|
|00001450| 64 5f 6c 69 6e 65 7b 5c | 72 65 6c 61 78 7d 25 0a |d_line{\|relax}%.|
|00001460| 20 20 20 5c 65 6c 73 65 | 20 20 5c 6c 65 74 5c 6e |   \else|  \let\n|
|00001470| 65 78 74 5c 70 72 69 6e | 74 5f 63 68 61 72 0a 20 |ext\prin|t_char. |
|00001480| 20 20 5c 66 69 0a 20 20 | 20 5c 6e 65 78 74 23 31 |  \fi.  | \next#1|
|00001490| 5c 65 6e 64 5f 6c 69 6e | 65 0a 20 20 20 7d 0a    |\end_lin|e.   }. |
+--------+-------------------------+-------------------------+--------+--------+